home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / v7n11.arc / COMPAR.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-06-14  |  12.8 KB  |  170 lines
  1. 100 REM - BASIC PROGRAM TO CREATE COMPARE.COM
  2. 110 CLS: PRINT "Creating COMPARE.COM ": OPEN "COMPARE.COM " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO 154: LINESUM#=0: LOCATE 2,3: PRINT "Countdown: ";154 - I;
  5. 140  FOR J = 1 TO 16 : READ BYTE$: CHECKSUM#=CHECKSUM#+VAL("&H"+BYTE$)
  6. 150   LINESUM#=LINESUM#+VAL("&H"+BYTE$)
  7. 160   IF (BYTE < 256) THEN LSET A$=CHR$(VAL("&H"+BYTE$))
  8. 170   PUT #1: NEXT J
  9. 180  READ LINETOT$: LINECHECK# = VAL("&H" + LINETOT$)
  10. 190  IF LINECHECK# = LINESUM# THEN GOTO 210
  11. 200  LOCATE 4,2: PRINT "Error in line #"  ;240 + 10 * I
  12. 210 NEXT I
  13. 220 CLOSE: LOCATE 6,2: IF CHECKSUM# <> 254690 THEN GOTO 240
  14. 230 PRINT "COMPARE.COM  created successfully": SYSTEM
  15. 240 PRINT "COMPARE.COM  is not valid!": SYSTEM
  16. 250   DATA E9,  0,  2,  D, 20, 20, 20,  D,  A, 43, 4F, 4D, 50, 41, 52, 45, 376
  17. 260   DATA 20, 31, 2E, 30, 20, 28, 43, 29, 20, 31, 39, 38, 38, 20, 5A, 69, 340
  18. 270   DATA 66, 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 642
  19. 280   DATA 73, 20, 43, 6F, 2E,  D,  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 496
  20. 290   DATA 6E, 65, 20, FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E, 20, 57C
  21. 300   DATA 4D, 65, 66, 66, 6F, 72, 64,  D,  A,  D,  A, 53, 79, 6E, 74, 61, 500
  22. 310   DATA 78, 3A, 20, 20, 43, 4F, 4D, 50, 41, 52, 45, 20, 66, 69, 6C, 65, 4B9
  23. 320   DATA 73, 70, 65, 63, 20, 66, 69, 6C, 65, 73, 70, 65, 63, 5B, 2F, 42, 5E2
  24. 330   DATA 5D, 5B, 2F, 57, 5D,  D,  A, 2F, 42, 20, 3D, 20, 42, 69, 6E, 61, 41A
  25. 340   DATA 72, 79, 20, 20, 20, 2F, 57, 20, 3D, 20, 57, 6F, 72, 64, 53, 74, 4B1
  26. 350   DATA 61, 72, 24, 1A,  0,  0,  0, B0,  0,  0, 18,  7, 70, FF,  0,  1, 350
  27. 360   DATA  0,  0, 3A, 33, 3A, 83,  0,  0,  0,  0,  0,  0,  0,  0, 3A, 5B, 1BF
  28. 370   DATA 3A, AB,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 50, 135
  29. 380   DATA  0, 50,  0, 3A, 33, 3A, 83,  0,  0,  0,  0,  0,  0,  0,  0,  0, 17A
  30. 390   DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,   0
  31. 400   DATA  0,  0,  0,  0,  0,  0,  0, 98,  A, E8,  A,  0,  0,  0,  0, 52, 1E6
  32. 410   DATA 65, 71, 75, 69, 72, 65, 73, 20, 36, 34, 4B, 20, 66, 72, 65, 65, 595
  33. 420   DATA 20, 52, 41, 4D, 24, 55, 6E, 73, 75, 70, 70, 6F, 72, 74, 65, 64, 5CD
  34. 430   DATA 20, 76, 69, 64, 65, 6F, 20, 6D, 6F, 64, 65, 24, 43, 4F, 4D, 45, 544
  35. 440   DATA 58, 45, 36,  2, 51,  2,  D,  A,  A, 45, 6E, 74, 65, 72, 20, 66, 3CD
  36. 450   DATA 69, 72, 73, 74, 20, 66, 69, 6C, 65, 20, 6E, 61, 6D, 65,  D,  A, 55A
  37. 460   DATA 24,  D,  A,  A, 45, 6E, 74, 65, 72, 20, 73, 65, 63, 6F, 6E, 64, 4DF
  38. 470   DATA 20, 66, 69, 6C, 65, 20, 6E, 61, 6D, 65,  D,  A, 24,  D,  A, 46, 419
  39. 480   DATA 69, 6C, 65, 20, 6E, 6F, 74, 20, 66, 6F, 75, 6E, 64, 24, 50, 72, 5CD
  40. 490   DATA 65, 73, 73, 20, 61, 6E, 79, 20, 6B, 65, 79, 20, 66, 6F, 72, 20, 5A3
  41. 500   DATA 6E, 65, 78, 74, 20, 63, 6F, 6D, 70, 61, 72, 65, 20, 20, 20, 45, 56B
  42. 510   DATA 73, 63, 20, 74, 6F, 20, 45, 78, 69, 74,  0, 57, 6F, 72, 6B, 69, 59F
  43. 520   DATA 6E, 67,  0, 46, 69, 6C, 65, 73, 20, 73, 69, 67, 6E, 69, 66, 69, 5D1
  44. 530   DATA 63, 61, 6E, 74, 6C, 79, 20, 64, 69, 66, 66, 65, 72, 65, 6E, 74, 662
  45. 540   DATA  0, 46, 69, 6C, 65, 73, 20, 61, 72, 65, 20, 65, 66, 66, 65, 63, 564
  46. 550   DATA 74, 69, 76, 65, 6C, 79, 20, 69, 64, 65, 6E, 74, 69, 63, 61, 6C, 66A
  47. 560   DATA  0, 43, 6F, 6D, 70, 61, 72, 65, 20, 63, 6F, 6D, 70, 6C, 65, 74, 5DB
  48. 570   DATA 65, 64,  0, FC, BB,  0, 10, B4, 4A, CD, 21, BA, FF,  1, 73,  3, 6AC
  49. 580   DATA E9, 12,  1, BE, 81,  0, AC, 3C,  D, 74, 28, 3C, 2F, 75, F7, C6, 669
  50. 590   DATA 44, FF,  0, AC, 3C,  D, 74, 1B, C6, 44, FF,  0, 24, 5F, 3C, 57, 5E6
  51. 600   DATA 75,  5, C6,  6, AD,  1, 7F, 3C, 42, 75, DB, C7,  6, EB,  1, 10, 60A
  52. 610   DATA  0, EB, D3, BE, 81,  0, 33, ED, AC, 3C, 20, 77,  4, 3C,  D, 75, 65E
  53. 620   DATA F7, 4E, 8B, FE, 8B, D6, AC, 3C, 20, 77, FB, C6, 44, FF,  0, 56, 908
  54. 630   DATA 50, E8, 18,  5, 73,  3, E8, 81,  6, 58, 5E, 89, BE, F7,  1, 83, 6B2
  55. 640   DATA C5,  2, 83, FD,  2, 77,  9, 3C,  D, 75, CD, E8, 6C,  6, EB, EB, 784
  56. 650   DATA BD,  2,  0, 8B, B6, F7,  1, AC, 3C,  0, 74,  E, 3C, 61, 72, F7, 668
  57. 660   DATA 3C, 7A, 77, F3, 80, 64, FF, 5F, EB, ED, 83, ED,  2, 73, E4, BD, 9C0
  58. 670   DATA  2,  0, 8B, B6, F7,  1, AC, 3C,  0, 74, 1D, 3C, 2E, 75, F7, BB, 645
  59. 680   DATA  2,  0, BF, 2C,  2, 56, 57, B9,  3,  0, F3, A6, 5F, 5E, 74,  F, 531
  60. 690   DATA 83, C7,  3, 4B, 75, EF, EB, DE, 83, ED,  2, 73, D5, EB,  6, C7, 937
  61. 700   DATA  6, EB,  1, 10,  0, A1, B2,  1, A3, E1,  1, A1, B4,  1, A3, E9, 6BD
  62. 710   DATA  1, E8, D2,  4, E8, 8A,  5, E8, 59,  0, 73, 26, E8, 8B,  6, 8B, 714
  63. 720   DATA 3E, ED,  1,  3, 3E, A8,  1, 8A, 3E, AB,  1, 80, 3E, B0,  1,  1, 4FA
  64. 730   DATA 74,  8, BE, D1,  2, 83, EF, 1E, EB, 22, BE, F1,  2, 83, EF, 10, 7DD
  65. 740   DATA EB, 1A, E8, C6,  5, E8, 2E,  6, E8, 1E,  6, 80, FC,  1, 75, C7, 799
  66. 750   DATA E8, 57,  6, EB,  A, E8, 68,  6, B0,  1, EB, 13, E8,  4,  6, 8A, 6BB
  67. 760   DATA 36, AA,  1, FE, CE, 32, D2, 32, FF, B4,  2, CD, 10, 32, C0, B4, 81B
  68. 770   DATA 4C, CD, 21, E8, 34,  6, BE, AB,  2, 8B, 3E, ED,  1, 83, C7, 48, 710
  69. 780   DATA 8A, 3E, AB,  1, 80, CF, 80, E8, D9,  5, A1, A8,  1, D1, E0, 8B, 88F
  70. 790   DATA F8, D1, E7, 89, 3E, C2,  1, 8A, 16, CE,  1, FE, C2, F6, E2,  3, 944
  71. 800   DATA F8, 89, 3E, C4,  1, BD,  2,  0, 8B, 86, CF,  1, 89, 86, C6,  1, 6FA
  72. 810   DATA 8B, 86, D3,  1, 89, 86, B6,  1, A0, CE,  1, 32, E4, 89, 86, CA, 809
  73. 820   DATA  1, 83, ED,  2, 73, E2, BF, DB,  1, A1, E1,  1, B9,  4,  0, F3, 796
  74. 830   DATA AB, A1, E9,  1, B9,  4,  0, F3, AB, C6,  6, B1,  1,  0, C6,  6, 6DB
  75. 840   DATA AF,  1,  0, 8B, 36, B6,  1, 8B, 3E, B8,  1, E8,  2,  3, E8, 2B, 5AA
  76. 850   DATA  3, 73,  7, E8, 36,  3, 73,  7, F9, C3, E8, 2F,  3, 73,  9, F6, 660
  77. 860   DATA  6, B1,  1,  7, 74,  9, EB, 5E, 80, 3E, B1,  1,  7, 74, 57, 8A, 551
  78. 870   DATA 3E, AB,  1, E8,  6,  3, 72, 43, E8, 11,  3, 72, 3E, 8A,  4, 8A, 554
  79. 880   DATA 25, A6, 74, 28, 83, 3E, EB,  1, 10, 74, 30, 3C,  A, 74, 19, 3C, 4D7
  80. 890   DATA  D, 74, 10, 80, FC,  A, 74, 19, 80, FC,  D, 75, 1E, 3C, 20, 74, 590
  81. 900   DATA  B, EB,  E, 80, FC, 20, 74,  4, 33, ED, EB,  A, 33, ED, E8, 17, 74C
  82. 910   DATA  0, BD,  2,  0, 8A, C4, E8,  F,  0, EB, 88, C6,  6, B0,  1,  1, 5F5
  83. 920   DATA E8, 7C,  1, E9, 7D, FF, F8, C3, 50, 51, 56, 57, 8B, 8E, C6,  1, 8B3
  84. 930   DATA 83, 3E, EB,  1, 10, 74,  5, E8, 76,  0, EB,  3, E8, B6,  0, FF, 71F
  85. 940   DATA 86, B6,  1, E3,  6, 89, 8E, C6,  1, EB, 60, A1, EB,  1, 89, 86, 7EB
  86. 950   DATA C6,  1, 3D, 10,  0, 74, 1B,  B, ED, 75,  5, E8, 7E,  2, EB,  3, 56B
  87. 960   DATA E8, 89,  2, 72,  D, 8B, BE, B6,  1, 80, 3D,  D, 75,  4, FF, 86, 6BA
  88. 970   DATA B6,  1, 80, 3E, AF,  1,  1, 75, 18, 83, BE, CA,  1,  0, 74, 2B, 55E
  89. 980   DATA FF, 8E, CA,  1, 75,  B, 8B, CD, 80, C1,  2,  8,  E, B1,  1, EB, 726
  90. 990   DATA 1A, F6,  6, B1,  1,  1, 75, 13, E8, C6,  2, 8B, F7, 83, C6,  2, 6CE
  91. 1000  DATA B9,  3,  0, F3, A5, 8B, 86, B6,  1, 89,  5, 5F, 5E, 59, 58, C3, 6DB
  92. 1010  DATA 3C,  D, 74, 21, 3C,  9, 74,  E, 3C,  A, 74, 38, 51, B9,  1,  0, 3A2
  93. 1020  DATA E8, 14,  0, 59, 49, C3, 51, 49, 83, E1,  7, 41, 51, E8,  5,  0, 5E5
  94. 1030  DATA 58, 59, 2B, C8, C3, B0, 20, 80, 3E, AF,  1,  1, 75, 14, 83, BE, 670
  95. 1040  DATA CA,  1,  0, 74,  D, 8B, BE, C2,  1, E8, 57,  3, E2, FB, 89, BE, 7BE
  96. 1050  DATA C2,  1, 33, C9, C3, 80, 3E, AF,  1,  1, 75,  7, 83, BE, CA,  1, 679
  97. 1060  DATA  0, 75,  2, 49, C3, 51, 50, 51, 8B, BE, C2,  1, 83, F9, 10, 75, 682
  98. 1070  DATA 3B, 50, 53, 8B, 86, B6,  1, 2B, 86, B2,  1,  3, 86, F3,  1, 50, 5D7
  99. 1080  DATA 8B, 86, EF,  1, 73,  3,  5,  0, 10, 8A, 3E, AB,  1, B9,  1,  0, 4BA
  100. 1090  DATA 86, E0, E8, 4F,  0, 86, E0, E8, 4A,  0,  B, C9, 74,  9, B0, 3A, 770
  101. 1100  DATA E8,  0,  3, 58, 49, EB, E9, 83, C7,  4, 5B, 58, E8, 35,  0, B0, 72E
  102. 1110  DATA 20, 59, 83, F9,  9, 75,  2, B0, 2D, 53, 8A, 3E, AB,  1, E8, E2, 6E3
  103. 1120  DATA  2, 5B, 89, BE, C2,  1, D1, E1, D1, E1,  3, F9, 83, C7, 1E, 58, 887
  104. 1130  DATA E8, D0,  2, 59, 49, 75,  C, A1, A8,  1, 2D, 3B,  0, D1, E0,  1, 641
  105. 1140  DATA 86, C2,  1, C3, 51, B9,  4,  2, D2, C0, 50, 24,  F,  4, 30, 3C, 5A1
  106. 1150  DATA 39, 7E,  2,  4,  7, E8, AB,  2, 58, FE, CD, 75, EB, 59, C3, 80, 778
  107. 1160  DATA 3E, AF,  1,  1, 74, 32, C6,  6, AF,  1,  1, E8, 9C,  3, BD,  2, 558
  108. 1170  DATA  0, A1, EB,  1, 89, 86, C6,  1, 8B, 8E, B6,  1, E8, A2,  1, 8B, 749
  109. 1180  DATA  5, 89, 86, B6,  1, 8B, B6, B6,  1, 3B, F1, 73,  6, AC, E8, 57, 753
  110. 1190  DATA FE, EB, F2, 83, ED,  2, 73, D9, 8B, 1E, B6,  1, B9, 90,  1, 51, 894
  111. 1200  DATA 8B, 16, B8,  1, B9, 90,  1, 51, B9,  A,  0, 8B, F3, 8B, FA, E8, 7A3
  112. 1210  DATA EA,  0, 72, 3F, E8, F5,  0, 72, 37, 8A,  4, 8A, 25, A6, 74, 28, 6A0
  113. 1220  DATA 83, 3E, EB,  1, 10, 74, 2C, 3C,  A, 74, 1A, 3C,  D, 74, 11, 80, 47F
  114. 1230  DATA FC,  A, 74,  9, 80, FC,  D, 75, 1A, 3C, 20, 74, D2, 4E, EB, CF, 745
  115. 1240  DATA 80, FC, 20, 74, CA, 4F, EB, C7, 3C, 20, 74, C3, E2, C1, EB, 2D, 929
  116. 1250  DATA 59, EB,  4, 42, 59, E2, B0, 43, 59, E2, A4, 56, 57, BE, B3,  2, 7B7
  117. 1260  DATA 8B, 3E, ED,  1, A1, A8,  1, D1, E0, 2D, 3A,  0,  3, F8, 53, 52, 6B9
  118. 1270  DATA 8A, 3E, AB,  1, E8, CC,  2, 5A, 5B, 5F, 5E, EB,  2, 59, 59, E8, 723
  119. 1280  DATA 7A,  0, 73,  4, 8B, 1E, BA,  1, E8, 81,  0, 73,  4, 8B, 16, BC, 592
  120. 1290  DATA  1, 89, 1E, D7,  1, 89, 16, D9,  1, 8A, 3E, AC,  1, BD,  2,  0, 52D
  121. 1300  DATA 8B, B6, B6,  1, 3B, B6, D7,  1, 74,  D, 83, BE, CA,  1,  0, 74, 6C2
  122. 1310  DATA  6, AC, E8, 93, FD, EB, E9, 83, ED,  2, 73, E4, E8, 11,  0, BD, 97D
  123. 1320  DATA  2,  0, 8B, 86, D7,  1, 89, 86, B6,  1, 83, ED,  2, 73, F3, C3, 74C
  124. 1330  DATA F6,  6, B1,  1,  6, 74, 24, F6,  6, B1,  1,  1, 75, 1D, 80,  E, 51B
  125. 1340  DATA B1,  1,  1, BD,  2,  0, 8B, 86, B6,  1, 89, 86, D3,  1, 8B, 86, 62E
  126. 1350  DATA C6,  1, 89, 86, CF,  1, 83, ED,  2, 73, EB, C3, 33, ED, 3B, B6, 84A
  127. 1360  DATA BA,  1, 72, 79, 3B, B6, BE,  1, 72, 75, EB,  F, BD,  2,  0, 3B, 631
  128. 1370  DATA BE, BA,  1, 72, 68, 3B, BE, BE,  1, 72, 64, 50, 53, 51, 52, 56, 67D
  129. 1380  DATA 57, 8B, B6, B2,  1, 8B, FE, 81, EF,  0, 28, B9,  0, 14, F3, A5, 7D1
  130. 1390  DATA E8, 68,  0, 81, AE, D3,  1,  0, 28, 81, AE, D7,  1,  0, 28, 81, 62B
  131. 1400  DATA AE, B6,  1,  0, 28, 81, 86, F3,  1,  0, 28, 73,  6, 81, 86, EF, 61F
  132. 1410  DATA  1,  0, 10, E8, 2B,  0, B9,  4,  0, 81, 2D,  0, 28, 47, 47, E2, 427
  133. 1420  DATA F8, 5F, 5E, 5A, 59, 5B, 58,  B, ED, 74,  A, 81, EF,  0, 28, 81, 6AA
  134. 1430  DATA EA,  0, 28, EB,  8, 81, EE,  0, 28, 81, EB,  0, 28, F8, C3, F9, 7E4
  135. 1440  DATA C3, 8B, FD, D1, E7, D1, E7, 81, C7, DB,  1, C3, B8,  0, 3D, CD, A64
  136. 1450  DATA 21, 72,  7, 89, 86, FB,  1, E8,  1,  0, C3, 8B, 9E, FB,  1, 8B, 701
  137. 1460  DATA 96, B2,  1, 8B, F2, B9,  0, 28, B4, 3F, CD, 21, 72, 17,  3, D0, 6E4
  138. 1470  DATA 89, 96, BA,  1, 8B, C8, E3,  C, A0, AD,  1, 3C, FF, 74,  5, 20, 73E
  139. 1480  DATA  4, 46, E2, FB, F8, C3,  6, B8,  0,  5, CD, 10, B8, 40,  0, 8E, 708
  140. 1490  DATA C0, 26, A0, 49,  0, 3C,  7, 74,  A, 3C,  3, 76,  6, BA, 15,  2, 41C
  141. 1500  DATA E9, 52, FB, B4, 12, B3, 10, CD, 10, 80, FB, 10, 74, 15, 26, F6, 7CC
  142. 1510  DATA  6, 87,  0,  8, 75,  D, 32, FF, B8, 30, 11,  6, CD, 10,  7, 88, 4B3
  143. 1520  DATA 16, AA,  1, 26, A0, 4A,  0, 32, E4, 8B, D0, 8B, 1E, EB,  1, 83, 65A
  144. 1530  DATA FB, 10, 75,  6, 8B, D3, 3C, 28, 74, C3, 89, 16, EB,  1, 89, 16, 6A9
  145. 1540  DATA CF,  1, 89, 16, D1,  1, A3, A8,  1, D1, E0, 8A, 16, AA,  1, F6, 77F
  146. 1550  DATA E2, A3, ED,  1, 80, EA,  4, D0, EA, 88, 16, CE,  1, 26, A1, 63, 832
  147. 1560  DATA  0,  5,  6,  0, A3, A4,  1, 3D, BA,  3, 74, 15, 81,  6, A6,  1, 404
  148. 1570  DATA  0,  8, B4,  8, CD, 10, 88, 26, AB,  1, 80, F4, 77, 88, 26, AC, 640
  149. 1580  DATA  1,  7, C3,  6, 8B, 16, A6,  1, 8E, C2, 8B, 16, A4,  1, 8A, D8, 611
  150. 1590  DATA EC, D0, D8, 72, FB, FA, EC, D0, D8, 73, FB, 8B, C3, AB, FB,  7, BF8
  151. 1600  DATA C3, E8, D8,  0, 8A, 36, AA,  1, FE, C6, 32, D2, 32, FF, B4,  2, 89D
  152. 1610  DATA CD, 10, 33, FF, BE,  9,  1, 8A, 3E, AB,  1, E8, A5,  0, 8B, 3E, 6A1
  153. 1620  DATA A8,  1, D1, E7, 83, EF, 40, 46, E8, 98,  0, BD,  0,  0, 8B,  E, 72F
  154. 1630  DATA A8,  1, 57, B0, CD, E8, AB, FF, E2, FB, 5F, 83, FD,  2, 77, 2A, 96E
  155. 1640  DATA 57, 83, C7,  A, B0, B5, E8, 9A, FF, 8B, B6, F7,  1, E8, 73,  0, 925
  156. 1650  DATA B0, C6, E8, 8E, FF, 5F, A1, A8,  1, D1, E0, 8A, 16, CE,  1, FE, 9B2
  157. 1660  DATA C2, F6, E2,  3, F8, 83, C5,  2, EB, C4, C3, BE, 7E,  2, 8B, 3E, 958
  158. 1670  DATA ED,  1, 8A, 3E, AB,  1, E8, 4A,  0, C3, 80, 3E, AE,  1,  1, 74, 639
  159. 1680  DATA  B, C6,  6, AE,  1,  1, BA,  3,  1, E8, 94,  0, 8B, 96, 32,  2, 516
  160. 1690  DATA E8, 8D,  0, 8B, BE, F7,  1, 8B, D7, 83, EA,  2, 8B, DA, C6,  7, 8B9
  161. 1700  DATA 50, B4,  A, CD, 21, 57, B0,  D, AE, 75, FD, C6, 45, FF,  0, 5F, 799
  162. 1710  DATA 8B, D7, E8, 57, FE, 73,  8, BA, 6D,  2, E8, 63,  0, EB, CD, C3, 909
  163. 1720  DATA E8, 20, FF, AC, 3C, 20, 73, F8, C3, B4,  0, CD, 16, C3, B4,  1, 84C
  164. 1730  DATA CD, 16, C3, E8, F3, FF, E8, F5, FF, 75, F8, C3, 33, C9, 8B, 16, B29
  165. 1740  DATA A8,  1, FE, CA, 8A, 36, AA,  1, EB, 2A, B9,  0,  2, 8B, 16, A8, 6F5
  166. 1750  DATA  1, FE, CA, 8A, 36, CE,  1, FE, C6, E8, 18,  0,  2, 2E, CE,  1, 71B
  167. 1760  DATA FE, C5,  2, 36, CE,  1, FE, C6, EB,  A, 8A, 2E, AA,  1, 32, C9, 7E1
  168. 1770  DATA 8A, F5, B2, 2C, 53, 8A, 3E, AB,  1, B8,  0,  6, CD, 10, 5B, C3, 6DD
  169. 1780  DATA B4,  9, CD, 21, C3, 90,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 2FE
  170.